Type Persona
    nombre As String
    direccion As String
    poblacion As String
    prov As Provincia
    dni As String
    edad As Integer
End Type
